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PASSSIO_HANDLER 1/0 Error Handler $ep-1984 01:42: AXx-11 ss-32 v4.0 Page 
16-Se0-1984 3: 29:98 PASRT 73 C}PAS IOHAND. ys 2:1 ° 


3 1 0001 MODULE PAS$$IO HANDLER ( 3 The "1/0 Error Handler’ 

; ¢ iC) we DENT ' File: PASIOHAND.B32 Edit: $BL1003 

3 4 0004 1 BEGIN 

3 5 0005 1! 

, 6 000 1 See e ee R ERA E ERATE ERRATA TERRE TTR ERE EAA AeA 
; 7 Q007 1 !® * 
: 8 0008 1 !'* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
3 9 0009 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. ® 
3 19 Ooty : 1° ALL RIGHTS RESERVED. * 
: ! '® & 
; 1 001 1 !* THIS SOFTWARE is FURNISHED saves A LICENSE AND MAY BE USES AND corte? * 
: 1 001 1 !® ONLY IN ACCORDANCE WITH THE jee as OF SUCH LICENSE AND WITH THE * 
: 14 0014 1 !* INCLUSION OF THe ABOVE oe denetn ew OTICE. THIS SOFTWARE OR ANY OTHER * 
; 15 0015 1 '* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 16 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 + aie : se TRANSF@RRED. * 
° .* e 
3 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
é $) poet ' ‘* CORPORATION. * 
§ '@ * 
3 25 5098 1 '= DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; 25 0025 1 !« 
; 26 0026 1 !* * 
: 27 0027 1 Nee eearee reek ae eee RARER ARATE TATE TATA TATA AAA AAA 
; 28 0028 1! 

; 29 0029 1 

; » 0030 1 !+¢ 

;. Rm 0031 1°! FACILITY: Pascal Language Support 

3 32 0032 1} 

; 33 0033 1 ' ABSTRACT: 

3 34 0034 1! 

3 35 0035 1! This module contains PASS$IO_HANDLER, the condition handler established 
; 39 iF) : : by all Pascal I/0 procedures. 

; $ sits: : ENVIRONMENT: User mode - AST reentrant 

3 re re ' AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 

s ¢€2 0042 1 | MODIFIED BY: 

s 65 0043 1! 

7: «644 0044 1! 1-001 - Pc 'gtnet. SBL 1-April-1981 

3; 665 0045 1! 1-002 - a zero-level access violation occurs while in PASSE yet IBATE _PFV, 
; 46 0046 1! nvert the SE cont to PASS_INVFILVAR. SBL 14-Ju uby=t 

s 67 0047 1! 1-003 - Check for PAS$_CONTINUE regardless of whether ERROR:=CONTINUE 

>: 468 0048 1 | was specified. SBL 29-Oct-1982 

3s 669 0049 1 i- 

5 50 0050 1 
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M 2 
- SS$10_HANDLER 1/0 Error Handler Jo=se0= 1986 01:94:08 AXx-11 et V4.0-74 
1-003 Declarations 14-Sep-1984 12:51: PASRTL.SRCJPASIOHAND.B32;1 
3 38 03) } MSBTTL ‘Declarations’ 
; 4 $088 1 ! PROLOGUE DEFINITIONS: 
;- 0054 1! 
; * 0055 1 
: 44 Or 38 : REQUIRE "RTLIN:PASPROLOG'; ! Externals, Linkages, PSECTs, structures 
;-. 0121 1! 
3 60 b15§ 1 ! TABLE OF CONTENTS: 
3; $) Bis 1! 
3 6¢ 0124 1 
: 6 81s? 1 FORWARD ROUTINE 
; 0126 1 PASS$IO_HANDLER; ! 1/0 error handler 
;. & 0127 1 
; © 0128 1! 
; Oo Biss 1 ! MACROS: 
; @& 0130 1! 
;. & 0131 1! NONE 
; 70 0132 1! 
3 71 0135 1 ! EQUATED SYMBOLS: 
;* i 0134 1! 
; 6« «65 0135 1! NONE 
s 74 0136 1! 
7; 0137 1 ! FIELDS: 
; 0138 1! 
es i 0139 1! NONE 
> 0140 1! 
3 79 0141 1 ! OWN STORAGE: 
; & 0142 1! 
Z 81 01435 1! NONE 
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PASSSIO_HANDLER 1/0 Error Handler 16-Sep-1984 01:42: AX-11 Bliss-32 V4.0-74 
1-003 PASSSIO_HANDLER = 1/0 Error handler 12286871384 93:69:98 PASRTL.SRCIPASIOHAND.B 231 
5 0144 1 XSBTTL ‘PASSSIO_HANDLER - I/O Error handler’ 

; 0145 1 GLOBAL ROUTINE PASS$SIO_HANDLER ( ! 1/0 error handler 

; 8 0146 1 SIGNAL_ARGS: REF BLOCK C, BYTEJ, ! Signal arguments array 

; 86 0147 1 MECH_ARGS: REF BLOCK C, BYTE], ! Mechanism arguments array 

oe 0148 1 ENABCE_ARGS: REF VECTOR C, LONG) ! Enable arguments array 

; 0149 1 )= 

; 0150 1 

: 0151 1 !++ 

; 4 0126 : FUNCTIONAL DESCRIPTION: 

5. 0154 1! This is the condition handler enabled by all VAX-11 Pascal 1/0 

3 94 is9 7 procedures. It implements the ERROR: =CONT INUE specifier b 

; 44 $128 : } unwinding to the address specified in the enable argument ERROR_ADDR. 
A i 0158 1! Upon an unwind, if the file is not fully opened, it is closed. The 

; .3 0159 7! file is unlocked on unwind. 

; 9 0160 1! 

; 100 0161 1 ! CALLING SEQUENCE: 

; 101 B198 7, 

: 102 0163 1! status.wlc.v = PASSSIO_HANDLER (SIGNAL_ARGS.rl.ra, MECH_ARGS.rl.ra 

3: 103 0164 1! , ENABCE_ARGS.rl.ra) 

> 104 0165 1! 

; 5 0166 1 ! FORMAL PARAMETERS: 

: 106 0167 1! 

; or 0168 1! SIGNAL _ARGS - The signal argument List. 

; 108 0169 1! 

; 4 oieo ’ MECH_ARGS - The mechanism argument List. 

5 Wi 0172 1! ENABLE_ARGS - An array with the following 

, Ti? 0175 1! format: 

, 343 0174 1! 

> (114 0175 1! = ¢eereremerewoocons 

s -395 0176 1! ' ENB_COUNT t <== ENABLE_ARGS 

g 16 0177 1! teoceoosceccocece 

- oar 0178 1! : ENB_PFV_ADDR | 

; 118 0179 1 $e nse meen 

> 119 0180 1! | ENB_UNWIND_ACT } 

s 120 0181 1!$ = ==  teeeetoroooesocce 

; 6121 0182 1! | ENB_ERROR_ADDR | 

s Yee 0183 1! teewecooooosocoent+ 

: Ges 0184 1! ; 

: 124 0185 1! ENB_COUNT is the count of following enable arguments. 
3 is? Hey: : The count is always at least 2. 

» Ver 0188 1! ENB_PFV_ADDR = If non-zero, the address of a longword 
: iss Aba ! containing the PFV our establisher is operating on. 
s 130 0191 1! ENB_UNWIND_ACT - Specifies the action 

; ia O13 1! to fake onan unwind. The values are: 

; T32 0193 1! PASSK_UNWIND_NOP = Do nothing 

: 13? Bie ' PASS$SK_UNWIND-UNLOCK = Unlock PFV 

s 35 0196 1! ENB_ERROR_ADDR - If present and non-zero, the address 
: 136 0197 1! of a longword containing the PC of an instruction to 
, 6TS7 0198 1! unwind to. This is present if the user specified 

3; «138 0199 1! Error:=Continue in the 1/0 statement. 

: iv 0200 1! 
| 
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rror Handler 16-Sep-1984 01:42: AX-11 Blis -0-74 
SEO HANDLER - 1/0 Error handler 12286871382 13389598 PASRTL. RC IPAS IOHAND.B 231 
IMPLICIT INPUTS: 


The ti pe heal PFV placed as the first FAO argument in the primary 
signalled message. 


' 

' 

{ IMPLICIT OUTPUTS: 
May clear PFV$V_LOCK upon unwind. 
ROUTINE VALUE: 

; SS$_RESIGNAL 
! SIDE EFFECTS: 

! May cause an unwind. 
! 

1 

! 

' 


If a zero-level access violation occurs while in PAS$$VALIDATE_PFV, 
the signal is converted to PAS$_INVFILVAR. 


BEGIN 

LITERAL 
ENB_COUNT = 0, ! Count of enable arguments 
ENB_PFV_ADDR = 1 ! Address of address of PFV 
ENB-UNWIND_ACT= 2 ! Address of unwind action 

ENB-ERROR_ADDR = 3; ! Address of address of unwind PC 


BUILTIN 
ACTUALCOUNT; 


14 
Determine if this is an unwind. 


If _,SIGNAL_ARGS CCHFSL_SIG_NAME] EQLU SS$_UNWIND 


BEGIN 
1F “ENABLE ARGS CENB_UNWIND_ACT] NEQ PASSK_UNWIND_NOP 
BEGIN 


'¢ 
Get our establisher's PFV. 


OONAUEWNS $0 OONOAUESWN (“OO DNAUEWN OC OONOAUEWR "ODO ONAULSWNHO 


LOCAL 
PFV: REF SPASSPFV_FILE_VARIABLE; 
PFV = ,.ENABLE_ARGS CENB_PFV_ADDRJ; |! Get PFV address 


ay CPFV$V_LOCK] = 0; ! Unlock PFV 
END 
ELSE 
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1/0 Err 
PAS$$10 
9228 

0259 

0260 

ge | 
$586 3 
0264 3 
0265 3 
0266 3 
0267 3 
gee 
0570 : 
0271 3 
osi¢ 3 
0273 3 
0274 3 
0275 3 
0276 4 
0277 3 
0278 3 
0279 3 
0280 3 
0281 3 
0282 4 
0283 3 
0284 4 
0285 4 
0286 4 
0287 4 
0288 4 
0289 3 
0290 3 
0291 3 
0292 3 
0293 3 
0294 3 
0295 3 
0296 3 
0297 3 
0298 3 
0299 3 
0300 3 
0301 3 
0302 3 
0303 3 
0304 3 
0305 3 
0306 3 
0307 4 
0308 4 
0309 4 
0310 4 
0311 4 
B36 4 
0313 4 
0314 4 


° 


. 
r Handler 19-5e0-138% 01:42 98 AX-11 Bliss-32 
HANDLER = 1/0 Error handler 14-Sep-1984 12:51 PASRTL.SRCJPAS 
BEGIN 
LOC 


AL 
COND_NAME: BLOCK (4, BYTE]; ! Primary condition name 


4 
Get primary condition name. 


COND_NAME = .SIGNAL_ARGS CCHFS$L_SIG_NAME]; 
14 
' If this is a zero-level access violation, and if the PC is inside 


! PASSSVALIDATE_PFV, we assume that we have been passed an invalid 
file variable. Convert the signal to PASS$_INVFILVAR. 


en EQLU SS$_ACCVIO) AND (.MECH_ARGS CCHFSL_MCH_DEPTH] EQL 0) 
'¢ 
Compare PC against range for PASS$S$VALIDATE_PFV. 


IF (.SIGNAL_ARGS (16,0,32,0] GEQA PAS$$VALIDATE_PFV) AND 
wel 51 ONAL=ARGS [16.0,32,0] LSSA PAS$S$VALIDATE_PFV_END) 


N 
BEGIN 

SIGNAL_ARGS CCHF$L_SIG_NAME] = PAS$_INVFILVAR; 
SIGNAL_ARGS (8,0,32,0]7= 1; ! FAO count 

SIGNAL~ARGS (12,0,32,0] = ..ENABLE_ARGS CENB_PFV_ADDR); 
COND NAME = .SIGNAL_ARGS CCHFSL_SIG_NAMEJ; 


'4 
Is this a PAS$ error? If not, resignal. 
IF .COND_NAME CSTS$V_FAC_NO] NEQU PASS_FACILITY 
RETURN SS$_RESIGNAL; 
'¢ 
! See if the PFVs match. The signaller's PFV is the 
! first FAO parameter in the primary message. If so, then 
continue with Pascal-specific processing. 
A amar ita (12,0,32,0] EQLA ..ENABLE_ARGS CENB_PFV_ADDRJ 
BEGIN 
'¢ 
! Check to see if the current exception code is PAS$_CONTINUE. 
! This is grqeretes by PASSSSIGNAL if a user condition handler 


! continued from the signal. If so, do a default unwind to 
} the caller of our establisher. 


4.0-74 


Vv 
IOHAND .B32; 1 
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PASSSIO_HANDLER 1/0 Error Handler 19-500" 128% 01:44:08 AxX-11 Bliss-32 jth Page 
1-003 PASSSIO_HANDLER = 1/0 Error handler 14-Sep-1984 12:51: PASRTL.SRCJPASIOHAND.B32; 1 
; ee 0315 4 
; 5 0316 4 IF _ .COND_NAME EQLU PAS$_CONTINUE 
; 256 0317 4 THEN 
3 €or 0318 5 IF NOT SUNWIND () 
; 258 0319 4 
; 259 b3 0 4 SPASSBUGCHECK (BUG_UNWINDFAIL); 
: 260 0321 4 
; 261 03 g 4 '¢ 
; $06 0325 4 ! Has ERROR:=CONTINUE been speci tise by our establisher? This 
3; €0 0324 4 : is determined by having ENB_ERROR_ADDR be non-zero. If so, 
> 264 0325 4 ! we may want to unwind. 
; 265 0326 4 le 
: 266 0327 4 
; 267 0328 4 IF .ENABLE_ARGS CENB_COUNT] GEQU ENB_ERROR_ADDR 
; 268 tT 94 4 THEN 
; 269 0330 5 BEGIN 
; 270 0331 5 IF _..ENABLE_ARGS CENB_ERROR_ADDR] NEQ 0 
3 ary oes 5 THE 
; si¢ 0335 6 BEGIN 
: 27 0334 6 
> 274 0335 6 a 
: 275 0336 6 : See if the error message is one which is ‘'trapped"’ 
; 276 0337 € ! by ERROR:=CONTINUE. This is done by comparing the 
s aur 0338 6 ! message number against a select range. 
; 278 0339 6 fe 
; 279 0340 6 
; 280 0341 6 IF .COND_NAME CSTS$V_CODE] GEQU PAS$S$K_MSGCONTLO AND ! Lowest number 
; «281 oeeg 6 -COND_NAME CSTS$V_CODE] LEQU PAS$S$K_MSGCONTHI 
3 see 0343 6 HEN 
; 28 0344 7 BEGIN 
; 284 0345 7 
; @> 0346 7 '+ ; 
: 286 0347 7 ! We want to do the ERROR:=CONTINUE. Unwind to the caller 
; ger 0348 7 ' of our establisher at the specified PC. 
; 288 0349 7 te 
: 289 0350 7 
; 290 0351 8 IF NOT SUNWIND (NEWPC = ..ENABLE_ARGS CENB_ERROR_ADDR]) 
; 291 0352 7 HEN 
: 292 0353 7 SPASSBUGCHECK (BUG_UNWINDFAIL); 
: 293 0354 6 END; 
; 294 0355 5 END; 
: ave 0356 4 END; 
: 296 0357 3 END; 
: 297 0358 § END; 
: 298 0359 : 
; 44 Oey § RETURN SS$_RESIGNAL; ! Resignal error 
; wt 0362 1 END; ! End of routine PAS$$IO_HANDLER 
- TITLE CSET 1 MOLER 1/0 Error Handler 
-IDENT \1-003\ 
-EXTRN PAS$$IO_HANDLER 
-EXTRN PASSS$VACIDATE_PFV 
-EXTRN PASSSVALIDATE_PFV_END 
-EXTRN PAS$_INVFILVAR, PASS_FACILITY 
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AX=-11 Bliss-32 V4.0-74 
PASRTL.SRCJPASIOHAND.B352; 1 


PAS$_CONTINUE, SYSSUNWIND 
PAS$SBUGCHECK, PAS$$K_MSGCONTLO 
PAS$SK_MSGCONTHI 


_PASSCODE,NOWRT, SHR, PIC,2 


SIGNAL ARGS, RO 
4 (RO), "#2336 
(R2) 


R2), PFV 
8, ?(PFV) 


0), COND_NAME 
D_NAME, #12 


H_ARGS, R1 


WW UW VND EW FOB Br 
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12(RO), a4(R2) 
COND_NAME , #PAS$_CONTINUE 


-(SP) 
#2, SYSSUNWIND 
(R2), #3 
a12(R2) 


#3, #12, COND_NAME, #PAS$SK_MSGCONTLO 
#3, #12, COND_NAME, #PAS$SSK_MSGCONTHI 


@12(R2) 

=(SP) 

#2, SYSSUNWIND 
RO, 6$ 


#1, PASSSBUGCHECK 


D_NAME 
#16, #12, COND_NAME, S*PASS_FACILITY 
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PASSSIO_HANDLER 1/0 Error Handler 16-Sep-1984 01:42: AX-11 Bliss-32 V4.0-74 Pa 8 

a 2 PASSEIO HANDLER - 1/0 Error handler 18788871 382 93:99:98 PASRTL SRE IPASIONAND.- B92; 1 a (3) 
6 11 000C4 BRB 7$ 3 
50 0918 F 3s 6 C6 6$: MOVZWL #2328, RO ; 0360. 
4 CB RET ; 

50 D4 OOOCC 7$: CLRL RO ; 0362 

04 OQOOCE RET ; 
; Routine Size: 207 bytes, Routine Base: _PASS$CODE + 0000 


; 0363 1 


a 


th ee 


Lexemes/CPU-Min: 12086 
ey Used: 91 pages 
4 


Compilation Complete 


| 3 

/PASSSIO_HANDLER 1/0 Error Handle 18-Sep-19 1386 9) Q1: ee: 98 AX-11 Bliss-32 V4.0-7 Page 9 
1-003 PAS$$10 OHANDLER = - 1/0 Error handler 14-Sep-1984 12:5 PASRTL.SRCJPASIOHAND. 8 231 (4) 
> 304 0364 1 END ! End of module PAS$$I0_HANDLER : 
; 305 0365 1 : 
; 306 0366 0 ELUDOM : 
; PSECT SUMMARY : 
; Name Bytes Attributes 
; PASSCODE 207 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) : 
: Library Statistics : 
Sie a ee © ect ee ia Symbols -------- Pages Processing 3 
3 File Total Loaded Percent Mapped Time ; 
: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 9 0 581 00:01.0 ; 
; 7$255$DUA28: CPASRTL.OBJJPASLIB.(.32;1 427 32 ? 33 00:00.4 : 
COMMAND QUALIFIERS 2 
; LISS PCRECE OSE FELD. EMIT EA, OPT IMLZE) SHOTRACESL L594, LSBs PRE LOMAS /OB JORIS 1 PRE LOND MSRC$:PASIOHAND/UPDATE=(ENH$: PAS IOHAND ; 
; Size: 207 code + 0 data bytes : 
; Run Time: 0:07.0 ‘ 
; Elapsed Time: 0:31.1 ; 
3 Lines/ PU Min: 3150 : 

| 


ENT CORPORATION 
ND PROPRIETARY | 
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